home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcmag / v10n15 / pow.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-30  |  373 b   |  20 lines
  1. {$N+,E+}
  2. UNIT Pow;
  3. (**) Interface (**)
  4.  
  5.   FUNCTION Power(base, expon:Double):double;
  6.  
  7. (**) Implementation (**)
  8.  
  9.   FUNCTION Power(base, expon:Double):double;
  10.   BEGIN
  11.     IF base <= 0 THEN
  12.       BEGIN
  13.         WriteLn('*** WARNING *** base muse be greater than zero');
  14.         power := 0;
  15.       END
  16.     ELSE
  17.       Power := Exp(expon*ln(base));
  18.   END;
  19. END.
  20.